home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-06 / getn.zip / GETN.BAS < prev    next >
BASIC Source File  |  1991-02-05  |  3KB  |  40 lines
  1.         ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  2.         ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  3.         ':::                                                                 :::
  4.         ':::                                                                 :::
  5.         ':::    PROGRAM:        GETN.BAS                                     :::
  6.         ':::    AUTHOR:         Mike Shaffer                                 :::
  7.         ':::    DATE:           Feb 2, 1991                                  :::
  8.         ':::    VERSION:        2.0                                          :::
  9.         ':::    PURPOSE:        Tests the GETNET2.SUB subroutine             :::
  10.         ':::    REVISIONS:                                                   :::
  11.         ':::                                                                 :::
  12.         ':::                                                                 :::
  13.         ':::                                                                 :::
  14.         ':::    NOTES:          This program assumes you're using PDQ from   :::
  15.         ':::                    Crescent Software. If not (shame on you!)    :::
  16.         ':::                    than you can modify the interrupt call to    :::
  17.         ':::                    use INT86 as provided with QuickBASIC, and   :::
  18.         ':::                    take out the reference to PDQDECL.BAS        :::
  19.         ':::                                                                 :::
  20.         ':::                    Compile using:                               :::
  21.         ':::                                                                 :::
  22.         ':::                         BC getn/o/s;                            :::
  23.         ':::                         LINK /NOD/NOE getn,,,pdq[386].lib       :::
  24.         ':::                                                                 :::
  25.         ':::                    or similar...                                :::
  26.         ':::                                                                 :::
  27.         ':::                                                                 :::
  28.         ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  29.         ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  30.         '
  31.         '$include: 'pdqdecl.bas'
  32.  
  33.  
  34.         call    getnet2(a%,a$)
  35.         print   a%,a$
  36.         end
  37.  
  38.  
  39.         '$include: 'getnet2.sub'
  40.